SUBROUTINE TRANS(N)
	COMMON K /P/ P(1) /CONV/ICONV
	DATA BLA/'   '/,TRNS/'TRNS'/,EXCL/'!'/
	IF(N.NE.1)GO TO 1
4	TYPE 2
	ACCEPT 3,XNAM
CC	IF(X.NE.EXCL)GO TO 5
C TYPE '!' TO OUTPUT FOR SMPLS PROG.   TRIGGERS ICONV FLIPFLOP
C******* ONLY WRITES FOR SMPLS NOW ******* 1/30/79 ***********
  	ICONV=0
CC	TYPE 44
CC	GO TO 4
44  	FORMAT(' OUTPUT=TEST.DAT'/)
5	IF(XNAM.EQ.BLA)XNAM=TRNS
	CALL OPEN(21,XNAM,0,'RDO',JW,JW,'UNF')
CCC	CALL IFILE(21,X)
	N=0
2	FORMAT(' TYPE FILE NAME -- '$)
3	FORMAT(A4)
1	READ (21) K,(P(J),J=1,K)  
	END
CC	SUBROUTINE PLAY
CC	TYPE 1
CC	CALL EXIT
CC1	FORMAT(' TEST.SND WAS WRITTEN')
CC	END